home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / ClassAdministrator1.3.cpt / Classroom Administrator / background_7357.txt < prev    next >
Text File  |  1988-04-18  |  5KB  |  243 lines
  1. -- background: 7357 from stack: in
  2. -- bmap block id: 4131
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Grades
  6. ----- HyperTalk script -----
  7. on openStack
  8.   hide message box
  9.   show menuBar
  10.   pass openStack
  11. end openStack
  12.  
  13.  
  14.  
  15. -- part 8 (button)
  16. -- low flags: 00
  17. -- high flags: 0000
  18. -- rect: left=291 top=0 right=23 bottom=316
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 1013 / 1013
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Next
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   go to next card
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 9 (button)
  35. -- low flags: 00
  36. -- high flags: 0000
  37. -- rect: left=183 top=0 right=23 bottom=209
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 1014 / 1014
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Prev
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   go to prev card
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 103 (field)
  54. -- low flags: 00
  55. -- high flags: 0001
  56. -- rect: left=170 top=90 right=314 bottom=205
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 0
  60. -- font id: 3
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: PtsPoss1
  65.  
  66.  
  67. -- part 104 (field)
  68. -- low flags: 00
  69. -- high flags: 0001
  70. -- rect: left=393 top=90 right=314 bottom=428
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 3
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: PtsPoss2
  79.  
  80.  
  81. -- part 54 (field)
  82. -- low flags: 00
  83. -- high flags: 4002
  84. -- rect: left=18 top=90 right=314 bottom=205
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 3
  89. -- text size: 10
  90. -- style flags: 0
  91. -- line height: 13
  92. -- part name: Column One
  93. ----- HyperTalk script -----
  94. on MouseUp
  95.  
  96. end MouseUp
  97.  
  98.  
  99.  
  100. -- part 55 (field)
  101. -- low flags: 00
  102. -- high flags: 4007
  103. -- rect: left=251 top=90 right=314 bottom=444
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 0
  107. -- font id: 3
  108. -- text size: 10
  109. -- style flags: 0
  110. -- line height: 13
  111. -- part name: Column 2
  112.  
  113.  
  114. -- part 56 (field)
  115. -- low flags: 00
  116. -- high flags: 4002
  117. -- rect: left=209 top=90 right=314 bottom=238
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 0
  121. -- font id: 3
  122. -- text size: 10
  123. -- style flags: 0
  124. -- line height: 13
  125. -- part name: Column 3
  126.  
  127.  
  128. -- part 57 (field)
  129. -- low flags: 00
  130. -- high flags: 4007
  131. -- rect: left=445 top=90 right=313 bottom=485
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 0
  135. -- font id: 3
  136. -- text size: 10
  137. -- style flags: 0
  138. -- line height: 13
  139. -- part name: Column 4
  140.  
  141.  
  142. -- part 58 (field)
  143. -- low flags: 00
  144. -- high flags: 0004
  145. -- rect: left=53 top=34 right=54 bottom=192
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 0
  149. -- font id: 3
  150. -- text size: 10
  151. -- style flags: 0
  152. -- line height: 13
  153. -- part name: Name
  154.  
  155.  
  156. -- part 61 (field)
  157. -- low flags: 01
  158. -- high flags: 4001
  159. -- rect: left=435 top=63 right=76 bottom=485
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 0
  163. -- font id: 3
  164. -- text size: 10
  165. -- style flags: 0
  166. -- line height: 13
  167. -- part name: Points
  168. ----- HyperTalk script -----
  169. On MouseUp
  170.   set lockscreen to true
  171.   put 0 into field "Points"
  172.   repeat with x = 1 to number of lines in field "Column One"
  173.     add line x of field "Column 3" to field "Points"
  174.   end repeat
  175.   repeat with x = 1 to number of lines in field "Column 2"
  176.     add line x of field "Column 4" to field "Points"
  177.   end repeat
  178.   put field "Points" into TotalPoints
  179.   put TotalPoints into card field "Total Points"
  180.  
  181.   put 0 into PointsPossible
  182.   repeat with x = 1 to number of lines in field "PtsPoss1"
  183.     add line x of field "PtsPoss1" to PointsPossible
  184.   end repeat
  185.  
  186.   repeat with x = 1 to number of lines in field "PtsPoss2"
  187.     add line x of field "PtsPoss2" to PointsPossible
  188.   end repeat
  189.   put PointsPossible into field "Possible"
  190.   divide field "Points" by PointsPossible
  191.   Multiply field "Points" by 100
  192.   set lockscreen to false
  193. end MouseUp
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211. -- part 62 (field)
  212. -- low flags: 00
  213. -- high flags: 0000
  214. -- rect: left=460 top=51 right=64 bottom=485
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 0
  218. -- font id: 3
  219. -- text size: 10
  220. -- style flags: 0
  221. -- line height: 13
  222. -- part name: Possible
  223.  
  224.  
  225. -- part 102 (button)
  226. -- low flags: 00
  227. -- high flags: 0000
  228. -- rect: left=0 top=0 right=17 bottom=19
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 26635 / 26635
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: 
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   Push this card
  240.   go to ClassAdminHelp
  241. end mouseUp
  242.  
  243.